home *** CD-ROM | disk | FTP | other *** search
/ Exploring Where & Why / Exploring Where & Why.iso / pc / Lib.cst / 00080_MatchGroupGame.ls < prev    next >
Encoding:
Text File  |  2004-07-11  |  1.7 KB  |  85 lines
  1. --
  2. -- MatchGame
  3. --
  4.  
  5. -- this class handles all runtime game management
  6. -- for a typical Match Game.
  7. -- for variations, extend this class in the individual activity.
  8.  
  9. -- constants:
  10. property delaySecs
  11.  
  12.  
  13. property ancestor
  14. property card
  15.  
  16.  
  17. on new me
  18.   -- initialize constants:
  19.   set delaySecs = 1
  20.   
  21.   set ancestor = new (script "MatchGroupSetUp")
  22.   
  23.   set card = 0
  24.   
  25.   -- add (the actorList, new (script "ObjectUpdater", me))
  26.   return me
  27. end
  28.  
  29.  
  30. on destruct me
  31.   if objectP (ancestor) then destruct (ancestor)
  32.   set ancestor = 0
  33. end
  34.  
  35.  
  36. on initializeRound me
  37.   initializeRound (ancestor)
  38.   hideAnswerCards (me)
  39.   initHandCursor ("pointer", getMatchPieceList (me))
  40. end
  41.  
  42.  
  43. on mouseDown me, spr
  44.   if not showAnswerCard (me, spr) then return 0
  45.   set matchSprite = checkMatch (me, spr)
  46.   
  47.   case (TRUE) of 
  48.     (matchSprite <> 0): -- two cards showing match:
  49.       -- do the corresponding animation for the matched sprites.
  50.       animateSprites (me, [spr, card]) 
  51.       
  52.       -- move a bar graph if one has been set up:
  53.       moveGraph (me, the name of member the memberNum of sprite matchSprite of castLib the castLibNum of sprite matchSprite)
  54.       
  55.       -- reset sprite information:
  56.       set card = 0
  57.       
  58.       done (me)
  59.     (card <> 0):  -- two cards showing don't match:
  60.       wait (me, delaySecs)
  61.       hideAnswerCard (me, spr)
  62.       hideAnswerCard (me, card)
  63.       set card = 0
  64.     otherwise: -- first card is now showing:
  65.       set card = spr
  66.   end case
  67.   
  68.   return 1
  69. end
  70.  
  71.  
  72. -- check to see if we are done.  
  73. -- if so, then do an action.
  74.  
  75. on done me
  76.   if checkDone (ancestor) then 
  77.     playResponseSound(1, 1)
  78.     wait (me, delaySecs)
  79.     go "finish"
  80.     unloadCast (me)
  81.     clearHandCursor
  82.   else
  83.     initHandCursor ("pointer", getMatchPieceList (me))
  84.   end if
  85. end